ipak <- function(pkg){
  new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
  if (length(new.pkg))
    install.packages(new.pkg, dependencies = TRUE)
  sapply(pkg, require, character.only = TRUE)}

packages <- c("DT","readxl", "Rfast", "ggplot2", "plotly", "ggrepel","OpenRepGrid", "GridFCM.practicum", "viridisLite", "MVN", "ggpattern", "factoextra", "cluster", "RColorBrewer", "rcartocolor", "tidyr")


ipak(packages)
               DT            readxl             Rfast           ggplot2            plotly 
             TRUE              TRUE              TRUE              TRUE              TRUE 
          ggrepel       OpenRepGrid GridFCM.practicum       viridisLite               MVN 
             TRUE              TRUE              TRUE              TRUE              TRUE 
        ggpattern        factoextra           cluster      RColorBrewer       rcartocolor 
             TRUE              TRUE              TRUE              TRUE              TRUE 
            tidyr 
             TRUE 

#Clasificación en espacio PH, referencia mediana de p/h y sd/2

wimp <- importwimp("C:\\Users\\gilmo\\Desktop\\Ruta_archivos\\wimps\\Wimp_Ejemplo_a.xlsx", sheet = 1, opr = 1)
ph_index_edicion2(wimp, method = "weight", std = 'vertices')
graph_ph_edicion2(wimp, mark.nva = TRUE, mark.cnt = TRUE, show.points = TRUE)

#Clasificación en espacio PH, referencia mediana de p/h y sd/2

wimp <- importwimp("C:\\Users\\gilmo\\Desktop\\Ruta_archivos\\wimps\\Wimp2.xlsx", sheet = 1, opr = 1)
ph_index_edicion2(wimp, method = "weight", std = 'none')
graph_ph_edicion2(wimp, mark.nva = TRUE, mark.cnt = TRUE, show.points = TRUE)
NA

#Clasificación en espacio PH, referencia mediana de p/h y sd/2

wimp <- importwimp("C:\\Users\\gilmo\\Desktop\\Ruta_archivos\\wimps\\Wimp8.xlsx", sheet = 1, opr = 1)
ph_index_edicion2(wimp, method = "weight", std = TRUE)
graph_ph_edicion2(wimp, mark.nva = TRUE, mark.cnt = TRUE, show.points = TRUE)
NA

#Clasificación en espacio PH, referencia mediana de p/h y sd/2

wimp <- importwimp("C:\\Users\\gilmo\\Desktop\\Ruta_archivos\\wimps\\Wimp1.xlsx", sheet = 1, opr = 1)
ph_index_edicion2(wimp, method = "weight", std = 'vertices')
graph_ph_edicion2(wimp, mark.nva = TRUE, mark.cnt = TRUE, show.points = TRUE)
NA
LS0tDQp0aXRsZTogIlBvc2ljacOzbiBlbiBQX0ggKG1lZGlhbmEgbWFzIG1lbm9zIHNkLzIpIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KYGBge3J9DQppcGFrIDwtIGZ1bmN0aW9uKHBrZyl7DQogIG5ldy5wa2cgPC0gcGtnWyEocGtnICVpbiUgaW5zdGFsbGVkLnBhY2thZ2VzKClbLCAiUGFja2FnZSJdKV0NCiAgaWYgKGxlbmd0aChuZXcucGtnKSkNCiAgICBpbnN0YWxsLnBhY2thZ2VzKG5ldy5wa2csIGRlcGVuZGVuY2llcyA9IFRSVUUpDQogIHNhcHBseShwa2csIHJlcXVpcmUsIGNoYXJhY3Rlci5vbmx5ID0gVFJVRSl9DQoNCnBhY2thZ2VzIDwtIGMoIkRUIiwicmVhZHhsIiwgIlJmYXN0IiwgImdncGxvdDIiLCAicGxvdGx5IiwgImdncmVwZWwiLCJPcGVuUmVwR3JpZCIsICJHcmlkRkNNLnByYWN0aWN1bSIsICJ2aXJpZGlzTGl0ZSIsICJNVk4iLCAiZ2dwYXR0ZXJuIiwgImZhY3RvZXh0cmEiLCAiY2x1c3RlciIsICJSQ29sb3JCcmV3ZXIiLCAicmNhcnRvY29sb3IiLCAidGlkeXIiKQ0KDQoNCmlwYWsocGFja2FnZXMpDQoNCmBgYA0KDQpgYGB7ciBXSU1QIEVKRU1QTE99DQoNCiNDbGFzaWZpY2FjacOzbiBlbiBlc3BhY2lvIFBILCByZWZlcmVuY2lhIG1lZGlhbmEgZGUgcC9oIHkgc2QvMg0KDQp3aW1wIDwtIGltcG9ydHdpbXAoIkM6XFxVc2Vyc1xcZ2lsbW9cXERlc2t0b3BcXFJ1dGFfYXJjaGl2b3NcXHdpbXBzXFxXaW1wX0VqZW1wbG9fYS54bHN4Iiwgc2hlZXQgPSAxLCBvcHIgPSAxKQ0KcGhfaW5kZXhfZWRpY2lvbjIod2ltcCwgbWV0aG9kID0gIndlaWdodCIsIHN0ZCA9ICd2ZXJ0aWNlcycpDQpncmFwaF9waF9lZGljaW9uMih3aW1wLCBtYXJrLm52YSA9IFRSVUUsIG1hcmsuY250ID0gVFJVRSwgc2hvdy5wb2ludHMgPSBUUlVFKQ0KYGBgDQoNCg0KDQpgYGB7ciBXSU1QIDJ9DQoNCiNDbGFzaWZpY2FjacOzbiBlbiBlc3BhY2lvIFBILCByZWZlcmVuY2lhIG1lZGlhbmEgZGUgcC9oIHkgc2QvMg0KDQp3aW1wIDwtIGltcG9ydHdpbXAoIkM6XFxVc2Vyc1xcZ2lsbW9cXERlc2t0b3BcXFJ1dGFfYXJjaGl2b3NcXHdpbXBzXFxXaW1wMi54bHN4Iiwgc2hlZXQgPSAxLCBvcHIgPSAxKQ0KcGhfaW5kZXhfZWRpY2lvbjIod2ltcCwgbWV0aG9kID0gIndlaWdodCIsIHN0ZCA9ICdub25lJykNCmdyYXBoX3BoX2VkaWNpb24yKHdpbXAsIG1hcmsubnZhID0gVFJVRSwgbWFyay5jbnQgPSBUUlVFLCBzaG93LnBvaW50cyA9IFRSVUUpDQoNCmBgYA0KDQoNCmBgYHtyIFdJTVAgOH0NCg0KI0NsYXNpZmljYWNpw7NuIGVuIGVzcGFjaW8gUEgsIHJlZmVyZW5jaWEgbWVkaWFuYSBkZSBwL2ggeSBzZC8yDQoNCndpbXAgPC0gaW1wb3J0d2ltcCgiQzpcXFVzZXJzXFxnaWxtb1xcRGVza3RvcFxcUnV0YV9hcmNoaXZvc1xcd2ltcHNcXFdpbXA4Lnhsc3giLCBzaGVldCA9IDEsIG9wciA9IDEpDQpwaF9pbmRleF9lZGljaW9uMih3aW1wLCBtZXRob2QgPSAid2VpZ2h0Iiwgc3RkID0gVFJVRSkNCmdyYXBoX3BoX2VkaWNpb24yKHdpbXAsIG1hcmsubnZhID0gVFJVRSwgbWFyay5jbnQgPSBUUlVFLCBzaG93LnBvaW50cyA9IFRSVUUpDQoNCmBgYA0KDQpgYGB7ciBXSU1QIDF9DQoNCiNDbGFzaWZpY2FjacOzbiBlbiBlc3BhY2lvIFBILCByZWZlcmVuY2lhIG1lZGlhbmEgZGUgcC9oIHkgc2QvMg0KDQp3aW1wIDwtIGltcG9ydHdpbXAoIkM6XFxVc2Vyc1xcZ2lsbW9cXERlc2t0b3BcXFJ1dGFfYXJjaGl2b3NcXHdpbXBzXFxXaW1wMS54bHN4Iiwgc2hlZXQgPSAxLCBvcHIgPSAxKQ0KcGhfaW5kZXhfZWRpY2lvbjIod2ltcCwgbWV0aG9kID0gIndlaWdodCIsIHN0ZCA9ICd2ZXJ0aWNlcycpDQpncmFwaF9waF9lZGljaW9uMih3aW1wLCBtYXJrLm52YSA9IFRSVUUsIG1hcmsuY250ID0gVFJVRSwgc2hvdy5wb2ludHMgPSBUUlVFKQ0KDQpgYGANCg0KDQoNCg==